﻿Imports System.Windows.Forms

Public Class Microforma

  

    Private Sub OpenFile(ByVal sender As Object, ByVal e As EventArgs) Handles OpenToolStripMenuItem.Click, OpenToolStripButton.Click
        Dim OpenFileDialog As New OpenFileDialog
        OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
        OpenFileDialog.Filter = "Archivos de texto (*.txt)|*.txt|Todos los archivos (*.*)|*.*"
        If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
            Dim FileName As String = OpenFileDialog.FileName
            ' TODO: agregue código aquí para abrir el archivo.
        End If
    End Sub

    Private Sub SaveAsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles SaveAsToolStripMenuItem.Click
        Dim SaveFileDialog As New SaveFileDialog
        SaveFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
        SaveFileDialog.Filter = "Archivos de texto (*.txt)|*.txt|Todos los archivos (*.*)|*.*"

        If (SaveFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
            Dim FileName As String = SaveFileDialog.FileName
            ' TODO: agregue código aquí para guardar el contenido actual del formulario en un archivo.
        End If
    End Sub


    Private Sub ExitToolsStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ExitToolStripMenuItem.Click
        Me.Close()
    End Sub

    
    Private m_ChildFormNumber As Integer

    Private Sub CUS001MantenerSolicitudesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CUS001MantenerSolicitudesToolStripMenuItem.Click
        Dim frmMantenerSolicitudes As New frmSolicitud
        frmMantenerSolicitudes.ShowDialog()

    End Sub

    Private Sub CUS002MantenerLotesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CUS002MantenerLotesToolStripMenuItem.Click
        Dim frmMantenerLotes As New frmListLotes
        frmMantenerLotes.ShowDialog()

    End Sub

    Private Sub CUS005GenerarRepositorioToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CUS005GenerarRepositorioToolStripMenuItem.Click
        Dim frmNuevoRepositorio As New frmAddRepository
        frmNuevoRepositorio.ShowDialog()

    End Sub

    Private Sub CUS006MantenerTiposDocumentalesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CUS006MantenerTiposDocumentalesToolStripMenuItem.Click
        Dim frmTiposDocumentales As New frmTypeDocAndIndex
        frmTiposDocumentales.ShowDialog()

    End Sub

    Private Sub CUS007MantenerIndicesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CUS007MantenerIndicesToolStripMenuItem.Click
        Dim frmTiposDocumentales As New frmTypeDocAndIndex
        frmTiposDocumentales.ShowDialog()

    End Sub

    Private Sub CUS014AbrirRepositorioToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CUS014AbrirRepositorioToolStripMenuItem.Click
        Dim frmAbrirRepositorio As New frmFileRepositoryOpen
        frmAbrirRepositorio.ShowDialog()

    End Sub

    Private Sub CUS14EscanearDocumentosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CUS14EscanearDocumentosToolStripMenuItem.Click
        Dim frmEscanearDocuementos As New frmPanelIndizacion
        frmEscanearDocuementos.ShowDialog()

    End Sub

    Private Sub CUS015IndizarDocumentosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CUS015IndizarDocumentosToolStripMenuItem.Click
        Dim frmEscanearDocuementos As New frmPanelIndizacion
        frmEscanearDocuementos.BolModoIndizacion = True
        frmEscanearDocuementos.ShowDialog()

    End Sub

    Private Sub CUS034VerDocumentoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CUS034VerDocumentoToolStripMenuItem.Click

        Dim frmVerDocumento As New frmVerDocumento("C:\Gonzalo\Microforma\Microforma.GUI\Templates\EjemploImagen.tif")
        frmVerDocumento.ShowDialog()

    End Sub

    Private Sub CUS012ConfiguraciónDeEscanersToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CUS012ConfiguraciónDeEscanersToolStripMenuItem.Click
        Dim frmConfiguraEscaner As New frmConfigurarEscaner
        frmConfiguraEscaner.ShowDialog()
    End Sub
End Class
